home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / 01_kinb / k_hy_sh / 00037_Script_37 < prev   
Text File  |  1994-10-06  |  1KB  |  73 lines
  1. on startMovie
  2.   global outtime
  3.   if not soundBusy (1) then
  4.     sound playFile 1, "K_Sound"   ---SOUND
  5.   end if
  6.   delay
  7.   when timeOut then go to marker (1)
  8.   set the timeOutLength = 5*60
  9.   startTimer
  10. end startMovie
  11.  
  12.  
  13. on idle
  14.   if not soundBusy (1) then
  15.     sound playFile 1, "K_Sound"
  16.   end if
  17. end idle
  18.  
  19. on stepMovie
  20.   
  21.   if not soundBusy (1) then
  22.     sound playFile 1, "K_Sound"   ---SOUND
  23.   end if
  24.   
  25.   if the frame =8 then   ---LAST FRAME
  26.     delay
  27.     set the timeOutLength = 5*60
  28.     when timeOut then go to 1 of movie "K_Main"   ---MENU
  29.     startTimer
  30.   else
  31.     if the frame =5 then   ---ENLARGE
  32.       delay
  33.       set the timeOutLength = 10*60
  34.       startTimer
  35.     else
  36.       if the frame =7 then   ---ENLARGE
  37.         delay
  38.         set the timeOutLength = 10*60
  39.         startTimer
  40.       else
  41.         delay
  42.         set the timeOutLength = 5*60
  43.         when timeOut then go to marker (1)
  44.         startTimer
  45.       end if
  46.     end if
  47.   end if
  48. end stepMovie
  49.  
  50.  
  51.  
  52. on teisi
  53.   puppetSprite 6,TRUE
  54.   set the castNum of sprite 6 to H12
  55.   updateStage
  56.   when timeOut then 
  57.   delay
  58.   set the timeOutLength = 10*60*60
  59.   when timeOut then go to marker (1)
  60.   startTimer
  61.   set the castNum of sprite 6 to H11
  62.   puppetSprite 6,False
  63. end teisi
  64.  
  65. on zokkou
  66.   puppetSprite 6,False
  67.   if the frame = 8 then   ---LAST FRAME
  68.     go to 1 of movie "K_Main"   ---MENU
  69.   else
  70.     go to marker (1)
  71.   end if
  72. end zokkou
  73.